home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / programming / amos / extensions / progs / cap.asm < prev    next >
Encoding:
Assembly Source File  |  2008-12-10  |  431 b   |  32 lines
  1.     lea    $70000,a1
  2.     subi.l    #1,d0
  3.     cmp.l    #0,d0
  4.     beq    no.parameters
  5.     move.w    d0,(a1)+
  6.     subi.l    #1,d0
  7. copy:    move.b    (a0)+,(a1)+
  8.     dbra    d0,copy
  9.     move.b    #0,(a1)+
  10.     move.l    4,a6
  11.     lea    dosname,a1
  12.     jsr    -408(a6)
  13.     move.l    d0,a6
  14.     move.l    #compiled,d1
  15.     clr.l    d2
  16.     clr.l    d3
  17.     move.l    a6,-(sp)
  18.     jsr    -222(a6)
  19.     clr.l    d1
  20.     move.l    (sp)+,a6
  21.     jmp    -144(a6)
  22. no.parameters:
  23.     clr.l    d0
  24.     rts
  25. dosname:
  26.     dc.b    'dos.library',0
  27.     even
  28. compiled:
  29.     dc.b    'SYS:C/AMOSExamine',0
  30.     even
  31.     
  32.